perm filename CNVR[1,JRA] blob sn#011360 filedate 1972-11-10 generic text, type T, neo UTF8
(START)
**ERROR** CONNIVER ALREADY RUNNING 
(FETCH '(VICIOUS !?ZZ)) 
IN-LISP 
*(STOP)
BKPT CONNIVER-NOT-RUNNING--STOP

↑Z
23250)   .IOT 1,1   
:NCNVR$

CONNIVER ((TRYNXT 19) (MATCH 13) (DB 31) (CNTRL 33))
TOP-LEVEL 
EAR-1 
←(ADD '(A B))
((A B) (0. +)) 
←(ADD '(A C))
((A C) (0. +)) 
←(ADD  DDA(


(FETCH '(A !?Z))
((*POSSIBILITIES (A !?Z)) *IGNORE (*ITEM ((A C) (0. +)) ((Z C))) (*ITEM ((A B)
 (0. +)) ((Z B)))) 
←(TRRT(
(ADD (ID--DF-NEEDED VD(A  AA !?X) "AUX"(X (P(FETCH '(BARF !?X))))
:LOOP (TRY-NEXT(INSTANCE))))
VD 
←(CDR @VDDV@'VD)
(DATUM (IF-NEEDED VD (A !?X) ("AUX" (X (P (FETCH '(BARF !?X)))) :LOOP (TRY-NEX
T (INSTANCE))) (0. +)) PNAME (-22263365632.)) 
←(FETCH '(A !?ZZ))
BKPT UNBND-VRBL

(CDR @@II'VD)
(DATUM (IF-NEEDED VD (A (/!? X)) ("AUX" (X (P (FETCH (QUOTE (BARF (/!? X)))))) 
(/: LOOP) (TRY-NEXT (INSTANCE))) (0. +)) PNAME (-22263365632.)) 
(SETQ XX '((''(AA(' XX QTES(


 ↑Z
23250)   .IOT 1,1   
:NCNVR$

CONNIVER ((TRYNXT 19) (MATCH 13) (DB 31) (CNTRL 33))
TOP-LEVEL 
EAR-1 
←
(ADD '(A B))
((A B) (0. +)) 
←(ADD '(A C))
((A C) (0. +)) 
←(SETQ XX (FETCH '(A !?X)))
((*POSSIBILITIES (A !?X)) *IGNORE (*ITEM ((A C) (0. +)) ((X C))) (*ITEM ((A B)
 (0. +)) ((X B)))) 
←(ADD (IF-NEEDED VD (A !?XXY)(SUCK IT)))
VD 
←(FETHCHHCHCH    (A UU!?U))U?! A(        HH '(A !?U))
BKPT UNBND-VRBL
XX 
((*POSSIBILITIES (A (/!? X))) *IGNORE (*ITEM ((A C) (0. +)) ((X C))) (*ITEM ((A
 B) (0. +)) ((X B)))) 
↑Z
23250)   .IOT 1,1   $$U
AI ITS 770  CONSOLE 43 FREE. 10:00:00